Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.11.2019 19:24:02 |
Chrimaet |
|
|
|
30.11.2019 22:40:30 |
Gast7777 |
|
|
|
01.12.2019 10:13:32 |
tscharl |
|
|
|
01.12.2019 14:25:09 |
Gast48487 |
|
|
|
01.12.2019 14:29:18 |
Chrimaet |
|
|
|
01.12.2019 15:05:25 |
tscharl |
|
|
|
01.12.2019 15:13:11 |
tscharl |
|
|
|
01.12.2019 15:13:13 |
tscharl |
|
|
|
01.12.2019 16:47:18 |
Chrimaet |
|
|
|
01.12.2019 16:38:08 |
Chrimaet |
|
|
|
01.12.2019 20:22:25 |
tscharl |
|
|
|
01.12.2019 21:31:05 |
Chrimaet |
|
|
|
01.12.2019 21:51:44 |
Chrimaet |
|
|
|
01.12.2019 22:43:33 |
tscharl |
|
|
|
01.12.2019 22:51:19 |
tscharl |
|
|
|
02.12.2019 00:24:29 |
Chrimaet |
|
|
|
02.12.2019 08:13:33 |
tscharl |
|
|
|
07.12.2019 16:16:27 |
Chrimaet |
|
|
|
07.12.2019 16:28:51 |
tscharl |
|
|
|
07.12.2019 16:47:53 |
Chrimaet |
|
|
|
07.12.2019 16:55:12 |
tscharl |
|
|
Addieren von Textboxen wenn Wert <2 ist |
07.12.2019 17:18:58 |
Chrimaet |
|
|
|
07.12.2019 21:58:58 |
Gast45422 |
|
|
|
07.12.2019 22:00:08 |
tscharl |
|
|
|
07.12.2019 22:32:30 |
Chrimaet |
|
|
|
07.12.2019 23:12:33 |
tscharl |
|
|
|
08.12.2019 00:23:30 |
Chrimaet |
|
|
Von:
Chrimaet |
Datum:
07.12.2019 17:18:58 |
Views:
592 |
Rating:
|
Antwort:
|
Thema:
Addieren von Textboxen wenn Wert <2 ist |
Private Sub Button_Take_Click()
Dim Eins As Integer
Dim Zwei As Integer
Dim Drei As Integer
Dim Vier As Integer
Dim Fünf As Integer
Dim Sechs As Integer
Dim Sieben As Integer
Dim Acht As Integer
Dim Neun As Integer
Dim Zehn As Integer
Dim Elf As Integer
Dim Zwölf As Integer
Dim Dreizehn As Integer
Dim Vierzehn As Integer
Dim Fünfzehn As Integer
Dim Sechzehn As Integer
Dim Siebzehn As Integer
Dim Achtzehn As Integer
Dim Datum_Inhalt As Date
ThisWorkbook.Sheets(ComboBox1.Text).Select
Datum_Inhalt = Datum.Value
> Eins = Bahn1.Value ' diese zeile ist gelb makiert
Zwei = Bahn2.Value
Drei = Bahn3.Value
Vier = Bahn4.Value
Fünf = Bahn5.Value
Sechs = Bahn6.Value
Sieben = Bahn7.Value
Acht = Bahn8.Value
Neun = Bahn9.Value
Zehn = Bahn10.Value
Elf = Bahn11.Value
Zwölf = Bahn12.Value
Dreizehn = Bahn13.Value
Vierzehn = Bahn14.Value
Fünfzehn = Bahn15.Value
Sechzehn = Bahn16.Value
Siebzehn = Bahn17.Value
Achtzehn = Bahn18.Value
Range("A" & Range("A65536").End(xlUp).Row + 1) = Datum_Inhalt
Range("B" & Range("B65536").End(xlUp).Row + 1) = Eins
Range("C" & Range("C65536").End(xlUp).Row + 1) = Zwei
Range("D" & Range("D65536").End(xlUp).Row + 1) = Drei
Range("E" & Range("E65536").End(xlUp).Row + 1) = Vier
Range("F" & Range("F65536").End(xlUp).Row + 1) = Fünf
Range("G" & Range("G65536").End(xlUp).Row + 1) = Sechs
Range("H" & Range("H65536").End(xlUp).Row + 1) = Sieben
Range("I" & Range("I65536").End(xlUp).Row + 1) = Acht
Range("J" & Range("J65536").End(xlUp).Row + 1) = Neun
Range("K" & Range("K65536").End(xlUp).Row + 1) = Zehn
Range("L" & Range("L65536").End(xlUp).Row + 1) = Elf
Range("M" & Range("M65536").End(xlUp).Row + 1) = Zwölf
Range("N" & Range("N65536").End(xlUp).Row + 1) = Dreizehn
Range("O" & Range("O65536").End(xlUp).Row + 1) = Vierzehn
Range("P" & Range("P65536").End(xlUp).Row + 1) = Fünfzehn
Range("Q" & Range("Q65536").End(xlUp).Row + 1) = Sechzehn
Range("R" & Range("R65536").End(xlUp).Row + 1) = Siebzehn
Range("S" & Range("S65536").End(xlUp).Row + 1) = Achtzehn
ThisWorkbook.Save
Unload Me
> Call Pruefe 'habe ich jetzt eingefügt
End Sub
doch auch mit dem aufruf "Call Pruefe" macht er Laufzeitfehler 13.
Habe die User form ausgefüllt ausser die Textbox für Bahn1 und haben dann den Speicher Button getätigt.
Gruß Chrimaet
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.11.2019 19:24:02 |
Chrimaet |
|
|
|
30.11.2019 22:40:30 |
Gast7777 |
|
|
|
01.12.2019 10:13:32 |
tscharl |
|
|
|
01.12.2019 14:25:09 |
Gast48487 |
|
|
|
01.12.2019 14:29:18 |
Chrimaet |
|
|
|
01.12.2019 15:05:25 |
tscharl |
|
|
|
01.12.2019 15:13:11 |
tscharl |
|
|
|
01.12.2019 15:13:13 |
tscharl |
|
|
|
01.12.2019 16:47:18 |
Chrimaet |
|
|
|
01.12.2019 16:38:08 |
Chrimaet |
|
|
|
01.12.2019 20:22:25 |
tscharl |
|
|
|
01.12.2019 21:31:05 |
Chrimaet |
|
|
|
01.12.2019 21:51:44 |
Chrimaet |
|
|
|
01.12.2019 22:43:33 |
tscharl |
|
|
|
01.12.2019 22:51:19 |
tscharl |
|
|
|
02.12.2019 00:24:29 |
Chrimaet |
|
|
|
02.12.2019 08:13:33 |
tscharl |
|
|
|
07.12.2019 16:16:27 |
Chrimaet |
|
|
|
07.12.2019 16:28:51 |
tscharl |
|
|
|
07.12.2019 16:47:53 |
Chrimaet |
|
|
|
07.12.2019 16:55:12 |
tscharl |
|
|
Addieren von Textboxen wenn Wert <2 ist |
07.12.2019 17:18:58 |
Chrimaet |
|
|
|
07.12.2019 21:58:58 |
Gast45422 |
|
|
|
07.12.2019 22:00:08 |
tscharl |
|
|
|
07.12.2019 22:32:30 |
Chrimaet |
|
|
|
07.12.2019 23:12:33 |
tscharl |
|
|
|
08.12.2019 00:23:30 |
Chrimaet |
|
|